SuperHack

home *** CD-ROM | disk | FTP | other *** search

/ SuperHack / SuperHack CD.bin / CODING / VBASIC / KNOBVB25.ZIP / VB.ZIP / KCAPTION.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1996-01-17 | 14.2 KB | 449 lines

VERSION 2.00 Begin Form CaptionDemo BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "Knob Caption Properties Demo" ClientHeight = 3690 ClientLeft = 1845 ClientTop = 1605 ClientWidth = 7065 Height = 4095 Left = 1785 LinkTopic = "Form2" MDIChild = -1 'True ScaleHeight = 3690 ScaleWidth = 7065 Top = 1260 Width = 7185 Begin Frame Frame4 BackColor = &H00C0C0C0& Caption = "CaptionFontID" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1020 Left = 3375 TabIndex = 24 Top = 1095 Width = 1515 Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "MS Serif" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 240 Index = 2 Left = 150 TabIndex = 5 Top = 720 Width = 1320 End Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "Courier" FontBold = -1 'True FontItalic = -1 'True FontName = "Courier" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 1 Left = 150 TabIndex = 6 Top = 510 Width = 1320 End Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "Arial" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 0 Left = 150 TabIndex = 9 Top = 300 Value = -1 'True Width = 1020 End End Begin Frame Frame3 BackColor = &H00C0C0C0& Caption = "Caption Position" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 870 Left = 3375 TabIndex = 23 Top = 2145 Width = 3630 Begin HScrollBar HScroll1 Height = 240 Index = 0 Left = 1200 Max = 140 Min = -140 TabIndex = 28 Top = 300 Width = 2000 End Begin HScrollBar HScroll1 Height = 240 Index = 1 Left = 1200 Max = 140 Min = -140 TabIndex = 27 Top = 540 Width = 2000 End Begin Label Label3 AutoSize = -1 'True BackColor = &H00C0C0C0& Caption = "0" Height = 195 Index = 1 Left = 3255 TabIndex = 10 Top = 555 Width = 120 End Begin Label Label3 AutoSize = -1 'True BackColor = &H00C0C0C0& Caption = "0" Height = 195 Index = 0 Left = 3255 TabIndex = 25 Top = 315 Width = 120 End Begin Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "CaptionX:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 0 Left = 435 TabIndex = 26 Top = 315 Width = 690 End Begin Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "CaptionY:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 1 Left = 420 TabIndex = 29 Top = 540 Width = 705 End End Begin KNOB Knob1 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00C0C0C0& BevelInner = 0 ' 0 - None BevelOuter = 1 ' 1 - Raised BevelWidth = 2 BorderType = 1 ' 1 - Bevel BorderWidth = 2 Digital = 0 'False DigitalColor = &H00000000& DigitalDecimals = 0 DigitalFontID = 0 DigitalX = 0 DigitalY = 0 FontID = 0 FrameColor = &H00000000& FrameScaleX = 0 FrameScaleY = 0 FrameStyle = 0 ' 0 - None Height = 3405 KnobColor = &H00808080& KnobMultiTurn = 0 'False KnobMultiTurnValue= 0 KnobRadius = 0.6 KnobSnap = 0 'False KnobSnapIncrement= 1 KnobStyle = 1 ' 1 - Pointer KnobUserDefined = "" KnobValue = 0 Left = 75 MarkUserDefined = "" MouseControl = -1 'True OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 0 Radius = 0 TabIndex = 22 Top = 165 Value = 0 Width = 3135 XScale = 0 YScale = 0 ZLoad = KCAPTION.FRX:0000 End Begin Frame Frame2 BackColor = &H00C0C0C0& Caption = "CaptionColor" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 990 Left = 5340 TabIndex = 21 Top = 1095 Width = 1680 Begin Label Colors BackColor = &H00004040& Height = 225 Index = 9 Left = 1260 TabIndex = 7 Top = 555 Width = 225 End Begin Label Colors BackColor = &H000080FF& Height = 225 Index = 8 Left = 1260 TabIndex = 8 Top = 315 Width = 225 End Begin Label Colors BackColor = &H00FF00FF& Height = 225 Index = 7 Left = 1020 TabIndex = 13 Top = 555 Width = 225 End Begin Label Colors BackColor = &H00FF0000& Height = 225 Index = 6 Left = 1020 TabIndex = 14 Top = 315 Width = 225 End Begin Label Colors BackColor = &H0000FFFF& Height = 225 Index = 5 Left = 780 TabIndex = 15 Top = 555 Width = 225 End Begin Label Colors BackColor = &H0000FF00& Height = 225 Index = 4 Left = 780 TabIndex = 16 Top = 315 Width = 225 End Begin Label Colors BackColor = &H000000FF& Height = 225 Index = 3 Left = 540 TabIndex = 17 Top = 555 Width = 225 End Begin Label Colors BackColor = &H00FFFFFF& Height = 225 Index = 2 Left = 540 TabIndex = 18 Top = 315 Width = 225 End Begin Label Colors BackColor = &H00808080& Height = 225 Index = 1 Left = 300 TabIndex = 19 Top = 555 Width = 225 End Begin Label Colors BackColor = &H00000000& Height = 225 Index = 0 Left = 300 TabIndex = 20 Top = 315 Width = 225 End End Begin TextBox Text1 Height = 315 Left = 3360 TabIndex = 0 Text = " " Top = 3255 Width = 3645 End Begin Frame Frame1 BackColor = &H00C0C0C0& Caption = "CaptionID" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1005 Left = 3375 TabIndex = 1 Top = 75 Width = 1185 Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "2" Height = 255 Index = 2 Left = 350 TabIndex = 4 TabStop = 0 'False Top = 660 Width = 615 End Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "1" Height = 255 Index = 1 Left = 350 TabIndex = 3 TabStop = 0 'False Top = 450 Width = 615 End Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "0" Height = 255 Index = 0 Left = 350 TabIndex = 2 Top = 240 Value = -1 'True Width = 615 End End Begin Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Caption " Height = 195 Index = 2 Left = 3360 TabIndex = 12 Top = 3060 Width = 720 End Begin Label Label2 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = " " Height = 195 Index = 2 Left = 5265 TabIndex = 11 Top = 4320 Width = 90 End Sub Colors_Click (index As Integer) knob1.CaptionColor = colors(index).BackColor text1.ForeColor = colors(index).BackColor End Sub Sub Form_Load () knob1.CaptionID = 0 hscroll1(0) = knob1.CaptionX * 100 hscroll1(1) = knob1.CaptionY * 100 text1.ForeColor = knob1.CaptionColor text1 = knob1.Caption End Sub Sub HScroll1_Change (index As Integer) Select Case index Case 0 knob1.CaptionX = hscroll1(0) / 100 Case 1 knob1.CaptionY = hscroll1(1) / 100 End Select label3(index) = hscroll1(index) / 100 End Sub Sub HScroll1_Scroll (index As Integer) Select Case index Case 0 knob1.CaptionX = hscroll1(0) / 100 Case 1 knob1.CaptionY = hscroll1(1) / 100 End Select label3(index) = hscroll1(index) / 100 End Sub Sub Option1_Click (index As Integer) knob1.CaptionID = index hscroll1(0) = knob1.CaptionX * 100 hscroll1(1) = knob1.CaptionY * 100 text1.ForeColor = knob1.CaptionColor text1 = knob1.Caption option2(knob1.CaptionFontID) = True End Sub Sub Option2_Click (index As Integer) knob1.CaptionFontID = index text1.ForeColor = knob1.CaptionColor text1 = knob1.Caption End Sub Sub Text1_Change () knob1.Caption = text1 End Sub